 ...
    Access     VBA    (Query)       :
UPDATE Customers SET CustName = " " & IIf(Right(CustName,1)="-",Trim(Left(CustName,Len(CustName)-1)),CustName);
        VB       .

   .
